-- background: 2627 from stack: in
-- bmap block id: 3160
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openX
end openX

on closeX
end closeX

on closeCard
  if the hilite of bkgnd button "index" then
    send mouseUp to field "name"
  end if
end closeCard


-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=185 top=29 right=54 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: name
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  get the hilite of bkgnd button "index"
  set the hilite of bkgnd button "index" to not it
  repeat with i = 1 to the number of buttons
    set the visible of button i to not it
  end repeat
  repeat with i = 1 to the number of card fields
    set the visible of card field i to not it
    set the lockText of card field i to it
  end repeat
  if it then -- we are hiding the card features
    set the rect of card field "description" to 9,84,503,338
    set the visible of card field "description" to true
    send closeX to this card
  else
    set the rect of card field "description" to 9,84,503,177
    send openX to this card
  end if
end mouseUp


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=433 top=29 right=54 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: resid


-- part 4 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=9 top=60 right=84 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 16
-- part name: parameters


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=27 right=54 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: index
----- HyperTalk script -----
on mouseUp
  visual effect zoom close to gray
  visual effect dissolve
  go to card 1
end mouseUp